home *** CD-ROM | disk | FTP | other *** search
/ TOS Silver 2000 / TOS Silver 2000.iso / programm / MM2_DEV / S / TEST / ENH_TEST.M < prev    next >
Encoding:
Text File  |  1989-08-12  |  537 b   |  20 lines
  1. (*$C-*)
  2. (*$g+*)
  3. module enh_test;
  4. import terminal;
  5. from inout import write, WriteString, writeln;
  6. var ch: char;
  7. begin
  8.     write(27c);
  9.     write('E');
  10.     Write (27C); Write (5C); (* Ctrl-E: Enhanced Output *)
  11.     WriteString('       asdhasdj al');
  12.     WriteLn;
  13.     WriteString('Copyright (C) 1986 Jürgen Müller');
  14.     WriteLn; WriteLn;
  15.     WriteString ('Compiling '); WriteLn;
  16.     Write (27C); Write (6C); (* Ctrl-F: Enhanced Output off *)
  17.     WriteString('das muß sichtbar sein!');
  18.     terminal.read(ch)
  19. end enh_test.
  20.